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This  report  was  prepared  as  part  of  the  Littoral  Data  Collection  Methods 
and  Their  Engineering  Application  Research  Work  Unit,  Shore  Protection  and 
Restoration  Program,  Coastal  Engineering  Area  of  Civil  Works  Research  and 
Development.  Technical  Monitors  from  the  Office,  Chief  of  Engineers  for  the 
Coastal  Engineering  Area  are  Mr.  John  H.  Lockhart,  Jr.,  and  Mr.  John  Housley. 

This  work  was  accomplished  during  the  period  1  July  1983  through 
30  December  1983  by  The  Coastal  Engineering  Research  Center  (CERC)  of  the 
U.  S.  Army  Engineer  Waterways  Experiment  Station  (WES),  under  the  general 
supervision  of  Dr.  Robert  W.  Whalin,  Chief,  CERC;  Dr.  Lewis  E.  Link,  Assistant 
Chief,  CERC;  Dr.  Dennis  R.  Smith  and  Mr.  Fred  E.  Canfield,  Acting  Chiefs, 
Engineering  Development  Division;  and  Mr.  Thomas  W.  Richardson,  Chief,  Coastal 
Structures  and  Evaluation  Branch.  This  report  was  prepared  by  Ms.  Julie  L. 
Dean,  Engineering  Assistant,  and  Dr.  Todd  L.  Walton,  Jr.,  Research  Hydraulic 
Engineer. 

Commander  and  Director  of  WES  during  the  publication  of  this  report 
was  COL  Tilford  C.  Creel,  CE.  Mr.  F.  R.  Brown  was  Technical  Director. 
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CONVERSION  FACTORS,  INCH-POUND  TO  METRIC  (SI) 
UNITS  OF  MEASUREMENTS 


Inch-pound  units  of  measurement  used  in  this  report  have  been  converted  to 
metric  (SI)  units  as  follows: 


Multiply 


BJL 


To  Obtain 


feet 

miles  (U.  S.  statute) 

miles  per  hour 
(international) 


0.3048 

1.609347 

0.44704 


meters 
kilometers 
meters  per  second 
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HANDHELD  CALCULATOR  ALGORITHMS  FOR  COASTAL  ENGINEERING 


Report  3 


PART  I :  INTRODUCTION 

1.  The  advent  of  the  handheld  programnable  calculator  has  led  to  the 
development  of  numerous  programs  in  various  fields  of  engineering  and  science. 
Coastal  engineering  is  no  exception.  This  report  provides  three  programs  to 
forecast  waves  in  deep  and  shallow  water.  Two  programs  use  the  Joint  North 
Sea  Wave  Project  (JONSWAP)  wave  forecasting  equations  for  deep  and  shallow 
water  as  presented  in  the  Shore  Protection  Manual  (U.  S.  Army  Engineer  Water¬ 
ways  Experiment  Station  Coastal  Engineering  Research  Center  (CERC),  in  prepa¬ 
ration,  1984).  The  third  program  predicts  a  depth-limited  significant  wave 
height  using  a  spectral  approach  (Vincent  1982,  Thompson  and  Vincent  1983). 

2.  The  three  programs  presented  herein  are  versions  of  Reverse  Polish 
Notation  (RPN)  logic  suitable  for  use  on  HP-41CV  programmable  calculators 
with  or  without  accessory  printer.  Each  program  is  documented,  assumptions 
are  briefly  described,  and  references  to  more  detailed  presentations  of  the 
theory  are  given. 

3.  Each  of  the  RPN  programs  incorporates  HP-41  compatible-print  rou¬ 
tines  which  print  and  label  all  input  and  output  parameters.  The  user  has 
only  to  enter  the  input  parameters  and  the  results  are  automatically  computed 
and  printed.  Since  the  printing  routines  increase  program  length  by  as  much 
as  25  percent,  use  of  a  magnetic  card  for  permanent  program  storage  is  recom¬ 
mended.  The  print  steps  do  not  need  to  be  deleted  if  a  printer  is  unavailable. 


PART  II:  PROGRAMS 


4.  Three  programs  (103R-Rev,  106R,  and  I07R)  are  presented  in  this 
report.  Program  103R-Rev  is  a  revised  version  of  Program  103R  (Walton, 
Birkemeier,  and  Weggel  1982)  and  is  being  published  herein  with  slight  changes 
for  consistency. 

5.  Program  103R-Rev  forecasts  significant  wave  height  and  spectral  peak 
period  in  shallow  water,  using  JONSWAP  wave  forecasting  equations  of  the  Shore 
Protection  Manual  (CERC,  in  preparation,  1984).  Program  106R  forecasts  the 
deepwater  significant  wave  height  and  spectral  peak  period  for  fetch-limited, 
duration-limited,  and  fully  developed  sea  cases  in  deep  water.  The  JONSWAP 
forecasting  equations  used  are  presented  in  Table  3-2  of  the  Shore  Protection 
Manual  (CERC,  in  preparation,  1984).  Program  107R  calculates  a  depth-limited 
significant  wave  height  based  on  an  estimate  of  the  peak  frequency  of  shallow- 
water  storm  wave  spectra.  Equation  (14)  from  Vincent  (1982)  and  equation  (5) 
from  Thompson  and  Vincent  (1983)  are  used. 

6.  Each  program  allows  either  English  or  metric  input  and  output. 

Program  listings  are  annotated,  making  it  possible  to  follow  the  logic  of  the 
algorithm  and  to  make  modifications  if  desired. 

7.  There  are  undoubtedly  many  calculator  programs  not  included  here 
that  have  been  developed  on  coastal  engineering  subjects.  Practicing  engi¬ 
neers  who  would  like  to  share  such  programs  (in  either  AOS  or  RPN)  with  other 
users  are  encouraged  to  submit  them  to  the  CERC.  If  the  response  is  great 
enough,  additional  reports  presenting  the  programs  will  be  prepared.  Comments, 
programs,  or  suggestions  for  programs  should  be  sent  to: 

Commander  and  Director 

U.  S.  Army  Engineer  Waterways  Experiment  Station 

ATTN:  Coastal  Structures  and  Evaluation  Branch,  CERC 

P.  0.  Box  631 

Vicksburg,  Mississippi  39180 

8.  These  and  future  programs  will  generally  correspond  to  the  following 
numbering  scheme: 

Miscellaneous 
Waves  and  currents 
Inlets 


0-99 

100-299 

300-499 


Beaches 

Geology 

Structures 


500-699 

700-899 

900-1099 


9.  In  general,  the  documentation  of  programs  submitted  should  be  in  a 
format  paralleling  that  of  the  programs  presented  in  this  report.  A  blank 
set  of  forms  which  can  be  reproduced  is  included  in  Appendix  P 
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Program  Description 


103R-41CV-REV:  JONSVAP  Shallow-Water  Wave  Forecasting  Equations,  Revised  (RPN  Logic) 

Todd  L.  Walton,  Jr.  D,u  7/83 

Coastal  Engineering  Research  Center 

Waterways  Experiment  Station  Stale  MS  Zip  Code  39180 

Vicksburg - - - 

Program  Description,  Equations,  Variables,  etc. 

This  algorithm  computes  the  wave  height,  H,  wave  period,  T,  and  minimum  duration,  t,  from 
input  values  of  the  water  depth,  d,  fetch  length,  F,  and  adjusted  windspeed,  UA  using 
equations  (3-39),  (3-40),  and  (3-41)  of  the  Shore  Protection  Manual  (CERC,  in  preparation, 
1984).  Equations  (3-39)  and  3-40)  are  for  constant  depth  and  unlimited  wind  duration. 

Wave  height  and  period  in  this  algorithm  are  significant  wave  height  and  period.  Algorithm 
uses  English  or  metric  system  of  units. 


Program  Title 
Name 

Address 

City 


REFERENCE 

U.  S.  Army  Engineers,  Coastal  Engineering  Research  Center,  Shore  Protection  Manual, 
Chapter  3  (in  preparation). 


Operating  Limits  and  Warnings 


103R-41CV-REV.-1 
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User  Instructions 

101R-41CV-REV:  JONSWAP  Shallow-Water  Wave  Forecasting 
Equations,  Revised  (RPN  Logic) 


INSTRUCTIONS 


LOAD  PROGRAM  ( FOCAST ) 


CHOOSE  ENGLISH  OR  METRIC.  U/OD 


enter  adjusted  W/NDSPEEb 


'nvlcs  per  hour  or  nieftrs  t 


enter  fetch  (feet  or  km') 


ENTER  DEPTH  (feet  or  no) 


READ  5I&N/F/CANT  NAVE 


HE/&HT  (ietl  or  mettrs) 


REND  SIGNIFICANT  WAVE 


period  (sec) 


read  minimum  Duration 


hours') 


size:  o/O 


U/\  -  50  mph  -  ZZ  m/sec. 


F  =  8o,oooft.  =  2H  km 


Ci-  35  ft .  =  H  m 


Program  Listing 


KEY  ENTRY 

KEY  COM 

COMMENTS 

STEP  KEY  ENTRY 

1'inTl^jfTfTlBi 

00  » 

«  *?hollow  fope  :a 

SI  STO  07 

#<!  -4.T1MG- 

<■ \l  p n 

04  0V1EN 

S3  PCL  07 

05.L8L  05 

f>l  Vf? 

<K  ‘E  OP  n  v 

“ 

05  ' 

0?  on« 

“ 

OS  STO  08 

08  tone  t 

”” 

07  PCL  00 

09  PPOHPT 

“ 

08  * 

16  AOFF 

“ 

09  STO  00 

M  ASTO  Y 

- 

70  PCL  08 

12  CIO 

1 

71  PCL  01 

13 

72  • 

14  A?T0  X 

• 

77  PCL  05 

1?  ClA 

m 

74  » 

10  x=y"’ 

75  STO  0! 

I?  cin  0i 

70  PCL  00 

1?  -ENGLISH  UNITS- 

77  .75 

IS  AVIEU 

78  YtX 

20  82.2 

21  STO  «S 

22  1.47 

- 

a  — *  Rtf 

(jenyl'Sh 

£nq  CcnvtrtitYi  ■=>  Ron 

79  .53 

80  * 

81  XEO  07 

23  STO  07 

82  ST0  04 

24  1.0 

25  STO  0! 

20  CTO  *2 

- 

E„q.  Cortversi<m-*Ro> 

8?  &CL  81 
fl4  $ppT 

85  .88565 

274L8L  01 

“ 

98  » 

2?  -NETF1C  UNITS- 

“ 

87  PCL  04 

2N  OVIEH 

- 

88  / 

70  0.8! 

3!  STO  00 

- 

W*  *” 

as  XEO  07 

90  PCL  04 

32  1.0 

33  STO  07 

. 

Metric  Cwrtrtifn+Ki 

91  * 

S3  .283 

74  1000 

75  STO  01 

* 

Metric  Co*versi<r»-*R* 

0?  * 

94  PCL  00 

30»LBL  02 

/ 

37  -UN1- 

_ 

%  -H=- 

38  TONE  2 

97  OPCL  X 

30  PPOHPT 

98  OVIEH 

40  -UA=- 

99  TONE  7 

4!  FS’  55 

100  PCL  00 

42  XEO  04 

Ua'*  Res 

10'  .375 

43  STO  07 

102  YtX 

44  •FETCH’- 

t8?  .83? 

45  TONE  7 

104  * 

40  PPOHPT 

!05  XEO  83 

47  -FrTCH=- 

100  STO  »4 

4$  55 

107  PCL  0! 

40  XEO  04 

” 

F-*RoS 

108  .337 

50  STO  05 

“ 

!*9  YtX 

51  -DEPTH’- 

“ 

110  .0379 

52  TONE  4 

- 

111  * 

53  PPOHPT 

- 

112  PCI  0« 

54  • DEP*H=- 

- 

113  ' 

55  PS’  55 

- 

114  XEO  03 

54  XEO  04 

- 

d  -9  Roif 

115  PCL  04 

57  STO  00 

- 

110  » 

50  PCI  03 

117  7.54 

KEY  COOC 


%/uf 

V^/ul  **> 


H  dispkvjtdj' 


-»<Ln 


1 03R-4 1 CV-REV . -3 
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Program  Description 


Program  Title  106R-41CV:  JONSWAP  Deepwater  Wave  Forecasting  Equations  (RPN  Logic) 

Name  Julie  L.  Dean  Date  7/83 

Address  Coastal  Engineering  Research  Center 

City  Vicksburg  Slate  MS  Zip  Code  39180 


Program  Description,  Equations,  Variables,  ate. 

This  program  takes  the  fetch  length,  F,  adjusted  windspeed,  UA>  and  duration,  t,  as  input 
values  and  calculates  the  deepwater  spectral  wave  height,  and  the  peak  spectral 

period,  Tm,  for  fetch-limited,  duration-limited,  and  fully  developed  sea  cases  in  deep 
water.  The  equations  used  are  presented  in  the  Shore  Protection  Manual,  Table  3-20.  The 
algorithm  uses  either  English  or  metric  units. 


REFERENCE 

U.  S.  Army  Engineer  Waterways  Experiment  Station,  Shore  Protection  Manual,  Chapter  3 
(in  preparation) . 


Operating  Limits  and  Warnings 


106R-41CV-1 
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User  Instructions 

106R-4 1CV :  JONSWAP  Deepwater  Wave  Forecasting 
Equations  (RPM  Logic) 


SIZE!  0/0 


STEP 


INSTRUCTIONS 


INPUT 


FUNCTION 


DISPLAY 


LOAD  PR06RAH  (DEEP FOR) 


H<Eq ]  'PEEPFCR* 


E  OR  M? 


CHOOSE  EN6HSH  OR  METRIC  UNITS 


I E  or  H,  [ R/S ] 


FETCH  ? 


ENTER  FETCH  (toi/es  or  kilomeKrs)  F 


IEHL 


UA  7 


enter  adjusted  Nindspeel 


( milt  S I  hr  or  WtHrsIsec) 


Ua 


FrIs 1 


DURATION? 


ENTER  DURATION  ( hours' ) 


£rI£_ 


FETCH-  L/N/TED  CASE 


REfiy  Hmo  ,  spectral  ware 


HT. 


Hm  [ff_ 


orm 


Read  Tm  ,  perk  spectral  period 


Tn  (sec') 


7 


DURFITION  -L / HIVED  CASE 


READ  Hho  .  SPECTRAL  WFh/E  HT 


Hmq  (A 


orm J 


REAP  TM.  PEfiK  SPECTRAL 


PERIOD 


Tm  ( Stc  ■) 


0 


TOLLU  DEVELOPED  CASE 


READ  Hua.  SPECTRAL  WAVE 


HT. 


HmJiL 


orm 


REAP  Tm.  PEAR  SPECTRAL 


PER/OLA 


Tm  (Stc) 


PRESS  R/s  TO  ENTER  A  NE 


IN  PROBLEM 


FiQmpIC  Pro  b km 


F-  ^.2!  mitts  m  Ft  63  km 


Ua  i  4b. 05 milts/ hr.  =  20.S9  mtRrs/stc 
t  =  20  Hours _ 


DFPUUTEP  FORt^: 

PFFPHflTFP  F0F£ta: t;n 

ENGLISH  UNITS 

(IF TP  I r  UNITS 

cr:rw= 

FETCH- 

S.21*e  »** 

14.&W* 

lift: 

UD= 

4G.05W  **» 

28.5W> 

Ti'ipaTinN- 

RIPQTION* 

2M8W  *»» 

fetch  liniteb 

FETCH  LINITEr 

m  .ir;=4,?*G5 

HW=!.?ftM 

TH=4.?00E 

piWOtiON  UNI  TEE 

M.IMT10H  UNITE* 

WW=2'.«?S« 

HW=7.2<>64 

T*=!?,3S&E 

TNM3.3S5S 

F'lLlv  HVE'.OPFI 

FULLY  JEVEKPEl 

H«0=I«,5?2F 

TN= ; ’ , NGF 1 

TN*|7,Jf?«7 

106R-41CV-2 
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PROGRAM  DEEP FOR  FLOWCHART 


START  PROGRAM 
XEQ  "DEEPFOR" 


ENTER  AND  STORE 
VARIABLES 


[COMPUTE:  FETCH  LIMITED  1 

H  =1.6x10“ 3  ( 

15  Ha! 

mo  I 

Ua2J 

g 

T  =2.857xl0_1 
m 

/j£_ 

V»A2 

\,/3„a 
/  8 

COMPUTE:  DURATION  LIMITED 


F  «  =  ^ 
ef  f  - 


H  =1 .6x10" 
mo 


T  =  2.857x10 
m 


(_ «_\ 3/2 

^T6T88xIWUa/ 

k  H*! 

1  UA2  /  g 

0-1  (gVefA  V3 

\W^/  8 


COMPUTE:  FULLY  DEVELOPED 
H  =2.A33xlO-1 


8. 134  U a 


m  g 


106R-41CV-3 
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Program  Listing 


TO  KtY  IMjW  KEY  COOK 

8I4LBL  'DEEPFOf ' 

82  'KEPNflTEP  FOSEC' 

83  'FOSTINfi' 

84  OVIEN 
854181  84 
88  ■£  08  If 
82  OP* 

88  TONE  2 

•9  m*n 

18  00FF 

11  0ST0  Y 

12  CLO 

13  *N' 

14  0ST0  X 

15  CLO 
18 

17  CTO  81 

18  'ENGLISH  UNITS' 

19  OVIEN  /  , 

28  3.81  E-2  [fn^hSn^. 

21  STO  84 

22  5.59  E-! 

23  STO  85 

24  2.1128  E-2 

25  S'C  88 
28  4.415  E-; 

27  ST0  87 

28  1.825  E-2 

29  STO  88 

38  3.788  E-i 

31  STO  89 

32  CTO  82 
334L8L  81 

34  -«ETB!C  CHITS' 

35  ovien  metric) 

38  1.818  E-2  n 
77  STO  84 
38  8.23?  E-! 

3°  STO  85 
48  1,75?  E-2 
4!  STO  88 

42  8.88'  E-! 

43  STO  8? 

44  2.492!  E-2 

45  STO  8? 

48  8.3  E-l 
47  ST0  89 
»84LB'_  82 
4«  -ccTrtr- 
9*  TONE  3 

51  W0N8T 

52  ■FETI'N=" 

53  ??->  S5 

54  XE#  83 

55  STO  81 
58  -'JO’' 

57  TONE  4 

58  WQH8T _ 


COMNEWTS 


-2  its.-* 

101*10  • 


10 


ZIIZ«»I0  *HhO 

(jnr^s 

44I5*I$‘» 

(Ft* 

1 625*10*  * 

<4* 

=  tm  +  ft* 
Va 

4230*10%  Tm_  f>tS 
/UF)V-» 

115^*10  =  Hhq  -  jfc, 

U{*i* 

4601  »»'*  7>4  _*1^7 

uS 

RV0  •  Jji  -+R# 
Ua 


F  -*  Z»! 


KEVENTRV  KCVCOOC 


i  -tje-- 

I  FS’  55 
XE8  83 
’  STO  82 
i  -WMTIONV 
.  TONE  5 
i  ? SONET 
.  'MMTIOtf 
’  F$4  55 
1  XEO  83 
i  STO  83 
i  08V 

'FETCH  UNITE!' 
1  OVIEN 
!  SCL  81 

I  SOOT 

i  SCL  82 


UA~*  %n. 


t  +  Zs 


-TN=' 

-9CL  V 
OVJEN 
TONE  5 
8}V 

'WMTION  UNITE' 
•i-B- 

OVIEN 

SCL  83 

.75 

Y»X 

OCL  82 

1.25 

YtX 


Th=  Zos(UaF)^ 


_  .I  ZS  ATS 

Hho*  R»Ua  t 


106R-41CV-4 
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V.7  * 

118  -TH=- 

119  fiRCl  X 
129  OVIEN 
12!  TONE  7 

122  flBV 

123  -FULLV  DEVELOPED" 

124  flVIEN 

125  PCL  82 

128  Xt2 

127  PCI  88 

128  * 

129  -HNO=* 

188  fiPCL  X 
13!  PV1EM 

132  TONE  8 

133  PCI  92 

134  PCL  89 

135  * 

138  -TH=- 

137  flPCL  X 

138  ftVIEM 

139  TONE  9 
148  STOP 
141  GTO  84 
142«LBL  83 

143  PRO 

144  PRX 

145  pth 

146  END 


v*.4V5 

Urn  *mui 

Tfi 1  *<ft  U* 


Program  Description 

Program  Title  107R-41CV:  Depth-Limited  Significant  Wave  Height  (RPN  Logic) 

Name  Julie  L.  Dean  4/83 

Address  Coastal  Engineering  Research  Center 

City  Vicksburg  Stale  MS  Zip  Code  39180 

Program  Description,  Equations,  Variables,  etc. 

This  program  calculates  a  depth-limited  significant  wave  height  as  given  by  equation  (14) 
from  Vincent  (1982)  and  equation  (5)  from  Thompson  and  Vincent  (1983),  given  depth,  peak 
frequency  of  the  wave  spectrum,  and  Phillip's  equilibrium  coefficient.  The  low  cut-off 
frequency  is  0.80  fp.  The  upper  cut-off  frequency  is  2.0  fp,  where  fp  is  the  peak 
frequency.  Simpson's  Rule  is  used  to  numerically  integrate  the  frequency  spectrum.  The 
algorithm  uses  either  English  or  metric  units. 

REFERENCES 

Vincent,  C.  L.  1982.  "Depth-Limited  Significant  Wave  Height:  A  Spectral  Approach," 
Coastal  Engineering  Research  Center  Technical  Report  82-3,  U.  S.  Army  Corps  of  Engineers 
Coastal  Engineering  Research  Center,  August  1982. 

Thompson,  E.  F. ,  and  Vincent,  C.  L.  "Significant  Wave  Height  for  Shallow  Water  Design," 
(submitted  to  ASCE  for  publication,  June  1983). 

Vincent,  C.  L.  "A  Method  for  Estimating  Depth-Limited  Wave  Energy,"  Technical  Aid 
No.  81-16,  U.  S.  Army  Corps  of  Engineers  Coastal  Engineering  Research  Center, 

November  1981. 


Operating  Limits  and  Warnings 


METHODOLOGY  USED  IN  THE  PROGRAM 


Equations 


Reference 


Find 


max 


U)u 


max 


"f  • 


co-  itn 

and  f  «  2-fp 


Equation  (6):  Vincent  1982 


If  60h  £  1-0 

max 


*  1  l<  _l 

i.  Hjf  -ifcgh)’4  fc 


2*  »/ = »/ (ossn)'5 

H|exp  (o.02289d 


’  /  -0.43642^ 

.  H  -  H.exp  \0.02289d  / 


Where  d 


g* 


df 

_ E 

g 


Equation  (16): 
Equation  (13): 
Equation  (5) : 


Vincent  1982 
Vincent  1982 


Thompson  and 
Vincent  1983 


If  eoh  >1.0 
max 


1.  R(fc»h)tanh(ft^  Rfc^))  *  1 


2.  ^(4^)  -  R^) 


-2 


1 

m 


Equation  (7):  Vincent  1982 


H  "H1 

ainh(2ft^2R{^) 


5'  ’  J 

0.8fp 


2-0fp  dC82f~V>^,) 


) 


-1 


df 


(2» 


Equation  (5):  Vincent  1982 


Equation  (13):  Vincent  1982 


Simpson's  Rule  loused  to  numerically  integrate  Step  3 
f (x)dx 


-  J  |y0+4yi+2y2+. .  .-Wy^+y^ 


4.  H |  -  4.0  (Eh) 


HX  “  Hx.  (0^0081)** 

-0.43642\ 
H^expyo.02289d  J 

2  g 


Hg  -  H.exp(o.( 


Equation  (14): 
Equation  (IS): 

Equation  (5): 


Vincent  1982 
Vincent  1982 


Thompson  and 
Vincent  1983 


8* 
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User  Instructions 


STEP 

INSTRUCTIONS 

INPUT 

FUNCTION 

DISPLAY 

/ 

LOAD  PR06RAH  (SWH) 

i*?]  "Sh/H" 

EORH? 

2 

CHOOSE  ENG-liSH  OR  METRIC  UNI'i 

3 

E  or  H ,  C^/sl 

DEPTH  ? 

3 

ENTER  DEPTH  (fat  or  meters) 

cL 

PEAK  F  ? 

4 

ENTER  SPECTRE) L  PEAK 

EREQUENC  </ 

£ 

m 

ALPHA  7 

5 

ENTER.  PHILLIPS  EQuiUBRM 

i 

COEFFlCEA/T 

oC 

C*/sJ 

b 

READ  SIGNIFICANT  htAUE 

HEIGHT  fact  or  meters) 

#s= 

. 

Mote-  With  4  integration  were  me r 

rs,  'the , 

tes 

2  mnates  lo  run. 

107R-41CV-4 
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User  Instructions 


Example  Problems 


i •  input-  d*  3ft.  =  49/44  m. 
£-  0  0615 
0010 1 


oignifican'-  nave  ht. 

ENGLISH  UNITS 
DEPTH: 

•}» 

PEAK  Fx 

8. *875*8*8* 


SIGNIFICANT  HAVE  HT. 
NETfH  UNITS 
DEPTH: 

»Qf  iidaud 

PEAK  F= 

8. *87588*8* 


2  wput- 


ALPHA: 

ALPHA: 

*.81018*8**  *** 

8.  *1*1*888* 

**» 

HS=7. 71282931* 

HS»2.358*66497 

A«  4.49LM2737  ... 

H(*  1.368722437 

•** 

•  d*  30-ft.  -  9./44O0. 

SIGNIFICANT  HAVE  HT. 

SIGNIFICANT  HOVE  HT. 

4-  0.0615 

ENGLISH  UNI'S 

DEPTH: 

NETPIC  UNITS 

DEPTH: 

oc  *  0.010 1 

U  dadAOOAd  *  » 

9. 144*68*** 

**» 

PEAK  Fx 

PEAK  F: 

9.8875*****  «** 

8. *875*688* 

*♦» 

ALPNA= 

ALPHA: 

8. *1818888*  4». 

*.81*1*8*8* 

0** 

NS:!5. 98217827 

HS=4. 8447811*8 

Ht*  13^4655*79 

.  A*  3-324S4*Sb« 

/  L/*p  *  ~ 

£>-Al875 

0.02151 


SIGNIFICANT  HAVE  HT. 
ENGliSH  UNITS 
DEPTH: 

4  Q  AAMAAAd 

IVi 

PEAK  F: 

8.1875888W 

ALPHA: 

8.82152889* 
HS=6. *64*9*523 
Afc-  5.89468888« 


*»' 

«*» 

»»* 


SIGNIFICANT  HAVE  HT. 
HETPIC  UNITS 
DEW: 

z.wmm?  »•• 

PEAK  Ex 

8.1875*****  »*• 

ALPHA: 

*.*2152*89*  *«• 

HS=I. 8295*288: 

■  1-552244759  »»• 


4  j/lftch  d*  15 ft.  -  4.572/7?. 
f  -  0;075 
c5*  0.02152 


SIGNIFICANT  HAVE  HT. 
ENGLISH  UNITS 
DEPTH: 

I5.888***** 

PEAK  F= 

*.187588*8* 

ALPHA: 

8. 821 52W9* 
HS:7.*G0*S9425 
Ht"  F. 152185461 


SIGNIFICANT  wv£  Ht. 
NETPIC  UNITS 
DEPTH: 

4.5728*88*8 
PEAK  F: 

*.1875*8*88 

ALPHA: 

*.*2152889* 
HS:2. 154519853 

4f»  1.877%ff5$_ 


Example  problems  l  and 2  Correspond  tv  Sample  Problem*/ 
oL  Ztftrtnce  is).  Example  problems  3  ana  4  corresponds 
tv  example  problem  *z  of  Reference  (3). 

Values  of  Hi  (shred  in  Rot)  have  been  printed  ou t  far .Compar¬ 
ison  tiiM  the  ixampie  problems  of  Reference  (3).  These 
vroqram  vahus  differ  from  Reference  (V  values  because 
tbe  inkpnvh'on  limi  ts  in  this  program  art  -from  0.8fj>ivZOfi 
and  the  limits  used  in  the  Reference  is)  are  from  ofiff 

tV  I  Hi,  107R-41CV-5  ' 
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Program  Listing 


P _ KtV  EHTWY  KEY  COO€  COMMENTS  STEP  KEY  ENTRY 


0I*L8L  "Skip* 

92  •SIGMlFiCtW'  Kfiv 
03  **-E  NT.* 

04  mien 

05  "5  OR  O'" 

86  flO». 

07  TONE  2 

88  PROMPT 

89  onpp 

10  flSTO  Y 

11  CLQ 

12  *E* 

17  ASTO  X 
1*  CLO 
15  X=Y’ 

10  GTO  17 
17  -NETP1C  UNHS* 

19  AVIEN 
1«  9.81 

20  GTO  18 
2!*LBl  17 

22  * ENGLISH  UNITS* 

23  AVIEN 

24  32.2 
25*L8L  13 
26  STO  06 
27«L8L  29 

28  -DEPTH’* 

29  TONE  3 

30  PPONPT 


WWT 

59  PC,  OS 
00 

6!  SORT 
0?  PCi  83 

67  » 


/I 


Sirtlpk.  J 

SoKrtroo  < 


ou 


VJ 


6<  STO  0' 

65  ! ,  0 

66  J  ' v 
o'  v'v' 

69  GTO  e? 
69  0.0O8! 
78  PC.  06 

71  * 

72  PCL  0! 

73  * 

74  SORT 

75  p; 

76  • 

77  PCL  O* 

78  / 

79  PCL  05 
89  0.0081 

81  ' 

82  SORT 
33  * 

84  STO  08 
35  OK'  15 
36*181  82 
87  PC.  02 


7!  *DEPTH=* 

32  PS’  55 

33  XEO  19 

34  STO  01 

35  -PENT  P’* 

36  TONE  4 

37  PPONPT 

38  -PEA*  P=* 

39  FS’  55 

40  XEO  19 
4!  STO  82 

42  4 

43  * 

44  PI 

45  * 

«6  STO  83 

47  PCL  02 

48  0.88 

49  * 

50  STO  04 

51  "ALPHA” 


cL %oi 


fp~*  %0l 


4"*  ^ 


52  TONE  5 

53  PPONPT 

54  "ALPHA* 

55  FS?  55 


56  XEO  19 

57  STO  05 


oC-»  Re*1 


88  2.0 

’9  * 

90  STO  09 
9!  PCL  04 
92  - 

97  4.0 

94  - 

95  ST0  !0 
%  PCL  64 

97  STO  1 1 

98  0.0 


99 

STO  12 

100*181  84 

101 

!.0 

102 

PCL  12 

187 

A 

104 

STO  1? 

105 

PCL  81 

106 

PCL  86 

107 

/ 

108 

S0PT 

109 

PCL  !! 

110 

• 

111 

2 

112 

* 

113 

PI 

114 

• 

115 

XT’„ 

KEY  COOC  COMMENTS 


2  off  Rtf 

dt  -*  Rio 

ux/irfcr  -*  Riz, 

ft  >"**«• 


107R-01CV-6 


116  5T0  13 

117  e.« 

118  STO  21 

U9  lwe.e 

138  9T0  33 
131  18.6 
133  STO  28 
123«LBL  85 

124  XE8  -CflLC- 

125  1.81 

126  XOY 

127  x>r 

128  GTO  86 

129  GTO  87 
1304LBL  86 
131  PCI  28 
'32  STO  22 

133  PCL  21 

134  * 

135  2 

136  / 

137  GTC  65 
1 38»IBL  87 

139  8.94 

XOY 
14!  v>y? 

142  CTO  8.. 

143  »Cl  28 

144  ^TO  2; 

145  PCL  22 
<46  4 

147  2 
14?  ■ 

140  CTO  85 
158.LBL  88 
1 5(  LO$rX' 

157  ?T0  1 4 
<53  PCL  14 

154  PCI  13 

155  * 

156  2 

157  * 

158  8T0  15 

159  VfO  -4IHH- 
166  l'V 

16!  »CL  15 
162  • 

163  ! 

164  ♦ 

165 

166  PCL  14 

167  vt2 

168  1/X 

169  * 

178  STO  16 
!?!  PCL  I! 


jwV‘U  R|5 


arts.  >  i  oi  ? 


arrs-  >  o.w  ? 


k>K)(0-*Rn* 


172  5.8 

173  rtx 

174  2 

175  PI 

!76  * 

177  4.8 

178  YtX 

179  » 

188  1/X 

18!  8.8881 

182  * 

183  PCL  86 

<84  y?2 

185  * 

186  PCL 

16 

187  » 

18?  STO 

17 

189  PCL 

1*2 

198  1.8 

191  XOY 

192  X=Y-> 

193  GTO 

18 

194  PCL 

12 

195  5.8 

196  XOY 

197 

198  CTO 

11 

199  PCL 

12 

288  EPTEPt 

261  2 

282  NOD 

283  X=07 

284  GTO 

12 

285  PCL 

17 

206  2 

307  * 

288  GTO 

13 

209*LBL 

4  ^ 

210  PCL 

17 

21;  4 

212  * 

213  CTO 

13 

214»LBl 

13 

215  Pa 

18 

216  ♦ 

217  $T0 

18 

218  PCL 

11 

219  ?a 

18 

228  * 

22!  570 

11 

222  GTO  04 

223HBL 

10 

224  PCI 

17 

225  STO 

18 

226  Pa 

1! 

227  PCL 

16 

226  * 

107R-41CV-7 
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APPENDIX  A:  BLANK  PROGRAM  FORMS 


Program  Description 


A3 


User  Instructions 


STEP 

INSTRUCTIONS 

INPUT 

FUNCTION 

r 

« 

^  Program  Listing 

STEP  KEY  ENTRY  KEY  CODE  COMMENTS  STEP  KEY  ENTRY  KEY  COOE  COMMENTS 


